home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / docs.lha / database / cmulisp-fmt.el < prev    next >
Lisp/Scheme  |  1992-07-14  |  5KB  |  147 lines
  1. (load "clisp-fmt")
  2. (load "funref-fmt")
  3.  
  4. (put 'defvar 'latexinfo-deffn-formatting-property
  5.      'latexinfo-format-specialized-defvar)
  6.  
  7. (put 'defvarx 'latexinfo-deffn-formatting-property
  8.      'latexinfo-format-specialized-defvar)
  9.  
  10. (defun latexinfo-format-specialized-defvar (parsed-args)
  11.   ;; Specialized variable-like entity:
  12.   ;; \defvar{name}               In Info, `Variable: Name'
  13.   ;; Use cdr of command-type to determine category:
  14.   (let ((category (car (cdr command-type)))
  15.         (name (car parsed-args))
  16.         (args (cdr parsed-args)))
  17.     (if (not (looking-at "\n")) (insert "\n"))
  18.     (insert " -- " category ": " "*" name "*")
  19.     (while args
  20.       (insert " "
  21.               (if (= ?& (aref (car args) 0))
  22.                   (car args)
  23.                 (upcase (car args)))
  24.           "\n")
  25.       (setq args (cdr args)))))
  26.  
  27.  
  28.  
  29. (put 'python 'latexinfo-format 'latexinfo-format-python)
  30. (defun latexinfo-format-python ()
  31.   (latexinfo-parse-noarg)
  32.   (insert "Python"))
  33.  
  34. (put 'Python 'latexinfo-format 'latexinfo-format-Python)
  35. (defun latexinfo-format-Python ()
  36.   (latexinfo-parse-noarg)
  37.   (insert "Python"))
  38.  
  39. (put 'hemlock 'latexinfo-format 'latexinfo-format-hemlock)
  40. (defun latexinfo-format-hemlock ()
  41.   (latexinfo-parse-noarg)
  42.   (insert "hemlock"))
  43.  
  44. (put 'Hemlock 'latexinfo-format 'latexinfo-format-Hemlock)
  45. (defun latexinfo-format-Hemlock ()
  46.   (latexinfo-parse-noarg)
  47.   (insert "Hemlock"))
  48.  
  49. (put 'clisp 'latexinfo-format 'latexinfo-format-clisp)
  50. (defun latexinfo-format-clisp ()
  51.   (latexinfo-parse-noarg)
  52.   (insert "Common Lisp"))
  53.  
  54. (put 'cmucl 'latexinfo-format 'latexinfo-format-cmucl)
  55. (defun latexinfo-format-cmucl ()
  56.   (latexinfo-parse-noarg)
  57.   (insert "CMU Common Lisp"))
  58.  
  59. (put 'cmulisp 'latexinfo-format 'latexinfo-format-cmulisp)
  60. (defun latexinfo-format-clisp ()
  61.   (latexinfo-parse-noarg)
  62.   (insert "CMU Common Lisp"))
  63.  
  64. (put 'alien 'latexinfo-format 'latexinfo-format-alien)
  65. (defun latexinfo-format-alien ()
  66.   (latexinfo-parse-noarg)
  67.   (insert "alien"))
  68.  
  69. (put 'Alien 'latexinfo-format 'latexinfo-format-Alien)
  70. (defun latexinfo-format-Alien ()
  71.   (latexinfo-parse-noarg)
  72.   (insert "Alien"))
  73.  
  74. (put 'Aliens 'latexinfo-format 'latexinfo-format-Aliens)
  75. (defun latexinfo-format-Aliens ()
  76.   (latexinfo-parse-noarg)
  77.   (insert "Aliens"))
  78.  
  79. (put 'aliens 'latexinfo-format 'latexinfo-format-aliens)
  80. (defun latexinfo-format-aliens ()
  81.   (latexinfo-parse-noarg)
  82.   (insert "aliens"))
  83.  
  84. (put 'Llisp 'latexinfo-format 'latexinfo-format-llisp)
  85. (put 'llisp 'latexinfo-format 'latexinfo-format-llisp)
  86. (defun latexinfo-format-llisp ()
  87.   (latexinfo-parse-noarg)
  88.   (insert "Common Lisp"))
  89.  
  90. (put 'cltl 'latexinfo-format 'latexinfo-format-cltl)
  91. (defun latexinfo-format-cltl ()
  92.   (latexinfo-parse-noarg)
  93.   (insert "\i{Common Lisp: The Language}"))
  94.  
  95. (put 'hinge 'latexinfo-format 'latexinfo-format-hinge)
  96. (defun latexinfo-format-hinge ()
  97.   (latexinfo-parse-noarg)
  98.   )
  99.  
  100. (put 'hfill 'latexinfo-format 'latexinfo-format-hfill)
  101. (defun latexinfo-format-hfill ()
  102.   (latexinfo-parse-noarg))
  103.  
  104. (put 'hide 'latexinfo-format 'latexinfo-parse-required-argument)
  105. (put 'ux 'latexinfo-format 'latexinfo-parse-required-argument)
  106.  
  107. (put 'dash 'latexinfo-format 'latexinfo-format-dash)
  108. (defun latexinfo-format-dash ()
  109.   (latexinfo-parse-noarg)
  110.   (insert "--"))
  111.  
  112. (put 'kwd 'latexinfo-format 'latexinfo-format-kwd)
  113. (defun latexinfo-format-kwd ()
  114.   (insert ":" (latexinfo-parse-arg-discard) )
  115.   (goto-char latexinfo-command-start))
  116.  
  117. (put 'multiple 'latexinfo-format 'latexinfo-format-noop)
  118. (put 'F 'latexinfo-format 'latexinfo-format-noop)
  119.  
  120. (put 'keys 'latexinfo-format 'latexinfo-format-keys)
  121. (defun latexinfo-format-keys ()
  122.   (insert  "&keys " (latexinfo-parse-required-argument))
  123.   (goto-char latexinfo-command-start))
  124.  
  125. (put 'args 'latexinfo-format 'latexinfo-format-args)
  126. (defun latexinfo-format-args ()
  127.   (insert (latexinfo-parse-required-argument))
  128.   (goto-char latexinfo-command-start))
  129.  
  130. (put 'morekeys 'latexinfo-format 'latexinfo-format-morekeys)
  131. (put 'yetmorekeys 'latexinfo-format 'latexinfo-format-morekeys)
  132. (defun latexinfo-format-morekeys ()
  133.   (insert  "      " (latexinfo-parse-required-argument))
  134.   (goto-char latexinfo-command-start))
  135.  
  136.  
  137. (put 'findexed 'latexinfo-format 'latexinfo-format-noop)
  138. (put 'vindexed 'latexinfo-format 'latexinfo-format-noop)
  139. (put 'tindexed 'latexinfo-format 'latexinfo-format-noop)
  140. (put 'conindexed 'latexinfo-format 'latexinfo-format-noop)
  141. (put 'vrindex 'latexinfo-format 'latexinfo-format-noop)
  142. (put 'cpindex 'latexinfo-format 'latexinfo-format-noop)
  143. (put 'fnindex 'latexinfo-format 'latexinfo-format-noop)
  144. (put 'pgindex 'latexinfo-format 'latexinfo-format-noop)
  145. (put 'tpindex 'latexinfo-format 'latexinfo-format-noop)
  146. (put 'kyindex 'latexinfo-format 'latexinfo-format-noop)
  147.